plastic <- read.csv("Plastic Waste Around the World.csv", stringsAsFactors = TRUE)

$$ \ H_0: \
\

$$

library(ggplot2)
library(plotly)
library(car)
interact <- lm(Total_Plastic_Waste_MT ~ Per_Capita_Waste_KG *
                       Recycling_Rate *
                       Main_Sources * 
                       Coastal_Waste_Risk, 
                       data = plastic)
summary(interact)

Call:
lm(formula = Total_Plastic_Waste_MT ~ Per_Capita_Waste_KG * Recycling_Rate * 
    Main_Sources * Coastal_Waste_Risk, data = plastic)

Residuals:
    Min      1Q  Median      3Q     Max 
-1.0649 -0.2998 -0.0228  0.1071  4.7577 

Coefficients: (122 not defined because of singularities)
                                                                                                   Estimate Std. Error t value Pr(>|t|)    
(Intercept)                                                                                       3.656e+02  7.683e+00  47.579  < 2e-16 ***
Per_Capita_Waste_KG                                                                               1.331e+00  1.199e-01  11.095  < 2e-16 ***
Recycling_Rate                                                                                   -7.392e+00  1.795e-01 -41.179  < 2e-16 ***
Main_SourcesConsumer_Goods                                                                       -2.799e+02  6.478e+00 -43.216  < 2e-16 ***
Main_SourcesConsumer_Packaging                                                                   -3.652e+02  7.662e+00 -47.672  < 2e-16 ***
Main_SourcesElectronics_Packaging                                                                -1.877e-01  1.540e+00  -0.122  0.90321    
Main_SourcesFood_Packaging                                                                       -3.618e+02  7.973e+00 -45.378  < 2e-16 ***
Main_SourcesIndustrial_Consumer                                                                  -3.596e+02  7.747e+00 -46.410  < 2e-16 ***
Main_SourcesIndustrial_Packaging                                                                 -3.649e+02  8.474e+00 -43.061  < 2e-16 ***
Main_SourcesPackaging_Consumer                                                                   -3.201e+02  1.111e+01 -28.797  < 2e-16 ***
Main_SourcesPackaging_Electronics                                                                 1.869e+02  5.512e+00  33.903  < 2e-16 ***
Main_SourcesPackaging_Industrial                                                                 -1.412e+02  4.020e+00 -35.115  < 2e-16 ***
Coastal_Waste_RiskLow                                                                            -4.355e+01  1.477e+00 -29.495  < 2e-16 ***
Coastal_Waste_RiskMedium                                                                          8.618e-01  2.824e-01   3.051  0.00278 ** 
Coastal_Waste_RiskVery_High                                                                      -4.509e-01  7.433e-01  -0.607  0.54524    
Per_Capita_Waste_KG:Recycling_Rate                                                                1.030e-04  1.893e-03   0.054  0.95669    
Per_Capita_Waste_KG:Main_SourcesConsumer_Goods                                                           NA         NA      NA       NA    
Per_Capita_Waste_KG:Main_SourcesConsumer_Packaging                                               -1.330e+00  1.199e-01 -11.092  < 2e-16 ***
Per_Capita_Waste_KG:Main_SourcesElectronics_Packaging                                                    NA         NA      NA       NA    
Per_Capita_Waste_KG:Main_SourcesFood_Packaging                                                    9.057e-01  5.425e-01   1.669  0.09750 .  
Per_Capita_Waste_KG:Main_SourcesIndustrial_Consumer                                              -1.327e+00  1.098e-01 -12.086  < 2e-16 ***
Per_Capita_Waste_KG:Main_SourcesIndustrial_Packaging                                             -1.336e+00  1.202e-01 -11.114  < 2e-16 ***
Per_Capita_Waste_KG:Main_SourcesPackaging_Consumer                                               -1.372e+00  5.151e-02 -26.634  < 2e-16 ***
Per_Capita_Waste_KG:Main_SourcesPackaging_Electronics                                                    NA         NA      NA       NA    
Per_Capita_Waste_KG:Main_SourcesPackaging_Industrial                                                     NA         NA      NA       NA    
Recycling_Rate:Main_SourcesConsumer_Goods                                                                NA         NA      NA       NA    
Recycling_Rate:Main_SourcesConsumer_Packaging                                                     7.462e+00  1.714e-01  43.545  < 2e-16 ***
Recycling_Rate:Main_SourcesElectronics_Packaging                                                         NA         NA      NA       NA    
Recycling_Rate:Main_SourcesFood_Packaging                                                         3.567e+00  9.616e-01   3.709  0.00031 ***
Recycling_Rate:Main_SourcesIndustrial_Consumer                                                    7.222e+00  2.271e-01  31.800  < 2e-16 ***
Recycling_Rate:Main_SourcesIndustrial_Packaging                                                   7.459e+00  1.814e-01  41.121  < 2e-16 ***
Recycling_Rate:Main_SourcesPackaging_Consumer                                                     7.430e+00  2.531e-01  29.355  < 2e-16 ***
Recycling_Rate:Main_SourcesPackaging_Electronics                                                         NA         NA      NA       NA    
Recycling_Rate:Main_SourcesPackaging_Industrial                                                          NA         NA      NA       NA    
Per_Capita_Waste_KG:Coastal_Waste_RiskLow                                                         2.674e-03  4.301e-03   0.622  0.53516    
Per_Capita_Waste_KG:Coastal_Waste_RiskMedium                                                     -2.459e-04  1.147e-03  -0.214  0.83060    
Per_Capita_Waste_KG:Coastal_Waste_RiskVery_High                                                          NA         NA      NA       NA    
Recycling_Rate:Coastal_Waste_RiskLow                                                             -6.042e-02  3.426e-02  -1.764  0.08019 .  
Recycling_Rate:Coastal_Waste_RiskMedium                                                          -5.109e-02  2.750e-02  -1.858  0.06552 .  
Recycling_Rate:Coastal_Waste_RiskVery_High                                                               NA         NA      NA       NA    
Main_SourcesConsumer_Goods:Coastal_Waste_RiskLow                                                         NA         NA      NA       NA    
Main_SourcesConsumer_Packaging:Coastal_Waste_RiskLow                                              4.336e+01  1.443e+00  30.054  < 2e-16 ***
Main_SourcesElectronics_Packaging:Coastal_Waste_RiskLow                                                  NA         NA      NA       NA    
Main_SourcesFood_Packaging:Coastal_Waste_RiskLow                                                         NA         NA      NA       NA    
Main_SourcesIndustrial_Consumer:Coastal_Waste_RiskLow                                             3.928e+01  2.058e+00  19.088  < 2e-16 ***
Main_SourcesIndustrial_Packaging:Coastal_Waste_RiskLow                                            4.417e+01  1.754e+00  25.182  < 2e-16 ***
Main_SourcesPackaging_Consumer:Coastal_Waste_RiskLow                                              5.729e+00  1.802e+00   3.179  0.00186 ** 
Main_SourcesPackaging_Electronics:Coastal_Waste_RiskLow                                                  NA         NA      NA       NA    
Main_SourcesPackaging_Industrial:Coastal_Waste_RiskLow                                                   NA         NA      NA       NA    
Main_SourcesConsumer_Goods:Coastal_Waste_RiskMedium                                                      NA         NA      NA       NA    
Main_SourcesConsumer_Packaging:Coastal_Waste_RiskMedium                                                  NA         NA      NA       NA    
Main_SourcesElectronics_Packaging:Coastal_Waste_RiskMedium                                               NA         NA      NA       NA    
Main_SourcesFood_Packaging:Coastal_Waste_RiskMedium                                                      NA         NA      NA       NA    
Main_SourcesIndustrial_Consumer:Coastal_Waste_RiskMedium                                                 NA         NA      NA       NA    
Main_SourcesIndustrial_Packaging:Coastal_Waste_RiskMedium                                                NA         NA      NA       NA    
Main_SourcesPackaging_Consumer:Coastal_Waste_RiskMedium                                                  NA         NA      NA       NA    
Main_SourcesPackaging_Electronics:Coastal_Waste_RiskMedium                                               NA         NA      NA       NA    
Main_SourcesPackaging_Industrial:Coastal_Waste_RiskMedium                                                NA         NA      NA       NA    
Main_SourcesConsumer_Goods:Coastal_Waste_RiskVery_High                                                   NA         NA      NA       NA    
Main_SourcesConsumer_Packaging:Coastal_Waste_RiskVery_High                                               NA         NA      NA       NA    
Main_SourcesElectronics_Packaging:Coastal_Waste_RiskVery_High                                            NA         NA      NA       NA    
Main_SourcesFood_Packaging:Coastal_Waste_RiskVery_High                                                   NA         NA      NA       NA    
Main_SourcesIndustrial_Consumer:Coastal_Waste_RiskVery_High                                              NA         NA      NA       NA    
Main_SourcesIndustrial_Packaging:Coastal_Waste_RiskVery_High                                             NA         NA      NA       NA    
Main_SourcesPackaging_Consumer:Coastal_Waste_RiskVery_High                                               NA         NA      NA       NA    
Main_SourcesPackaging_Electronics:Coastal_Waste_RiskVery_High                                            NA         NA      NA       NA    
Main_SourcesPackaging_Industrial:Coastal_Waste_RiskVery_High                                             NA         NA      NA       NA    
Per_Capita_Waste_KG:Recycling_Rate:Main_SourcesConsumer_Goods                                            NA         NA      NA       NA    
Per_Capita_Waste_KG:Recycling_Rate:Main_SourcesConsumer_Packaging                                -4.148e-04  1.886e-03  -0.220  0.82630    
Per_Capita_Waste_KG:Recycling_Rate:Main_SourcesElectronics_Packaging                                     NA         NA      NA       NA    
Per_Capita_Waste_KG:Recycling_Rate:Main_SourcesFood_Packaging                                            NA         NA      NA       NA    
Per_Capita_Waste_KG:Recycling_Rate:Main_SourcesIndustrial_Consumer                                       NA         NA      NA       NA    
Per_Capita_Waste_KG:Recycling_Rate:Main_SourcesIndustrial_Packaging                              -3.324e-04  1.891e-03  -0.176  0.86071    
Per_Capita_Waste_KG:Recycling_Rate:Main_SourcesPackaging_Consumer                                        NA         NA      NA       NA    
Per_Capita_Waste_KG:Recycling_Rate:Main_SourcesPackaging_Electronics                                     NA         NA      NA       NA    
Per_Capita_Waste_KG:Recycling_Rate:Main_SourcesPackaging_Industrial                                      NA         NA      NA       NA    
Per_Capita_Waste_KG:Recycling_Rate:Coastal_Waste_RiskLow                                          2.583e-04  1.683e-04   1.535  0.12719    
Per_Capita_Waste_KG:Recycling_Rate:Coastal_Waste_RiskMedium                                       2.265e-04  1.782e-04   1.271  0.20606    
Per_Capita_Waste_KG:Recycling_Rate:Coastal_Waste_RiskVery_High                                           NA         NA      NA       NA    
Per_Capita_Waste_KG:Main_SourcesConsumer_Goods:Coastal_Waste_RiskLow                                     NA         NA      NA       NA    
Per_Capita_Waste_KG:Main_SourcesConsumer_Packaging:Coastal_Waste_RiskLow                                 NA         NA      NA       NA    
Per_Capita_Waste_KG:Main_SourcesElectronics_Packaging:Coastal_Waste_RiskLow                              NA         NA      NA       NA    
Per_Capita_Waste_KG:Main_SourcesFood_Packaging:Coastal_Waste_RiskLow                                     NA         NA      NA       NA    
Per_Capita_Waste_KG:Main_SourcesIndustrial_Consumer:Coastal_Waste_RiskLow                                NA         NA      NA       NA    
Per_Capita_Waste_KG:Main_SourcesIndustrial_Packaging:Coastal_Waste_RiskLow                               NA         NA      NA       NA    
Per_Capita_Waste_KG:Main_SourcesPackaging_Consumer:Coastal_Waste_RiskLow                                 NA         NA      NA       NA    
Per_Capita_Waste_KG:Main_SourcesPackaging_Electronics:Coastal_Waste_RiskLow                              NA         NA      NA       NA    
Per_Capita_Waste_KG:Main_SourcesPackaging_Industrial:Coastal_Waste_RiskLow                               NA         NA      NA       NA    
Per_Capita_Waste_KG:Main_SourcesConsumer_Goods:Coastal_Waste_RiskMedium                                  NA         NA      NA       NA    
Per_Capita_Waste_KG:Main_SourcesConsumer_Packaging:Coastal_Waste_RiskMedium                              NA         NA      NA       NA    
Per_Capita_Waste_KG:Main_SourcesElectronics_Packaging:Coastal_Waste_RiskMedium                           NA         NA      NA       NA    
Per_Capita_Waste_KG:Main_SourcesFood_Packaging:Coastal_Waste_RiskMedium                                  NA         NA      NA       NA    
Per_Capita_Waste_KG:Main_SourcesIndustrial_Consumer:Coastal_Waste_RiskMedium                             NA         NA      NA       NA    
Per_Capita_Waste_KG:Main_SourcesIndustrial_Packaging:Coastal_Waste_RiskMedium                            NA         NA      NA       NA    
Per_Capita_Waste_KG:Main_SourcesPackaging_Consumer:Coastal_Waste_RiskMedium                              NA         NA      NA       NA    
Per_Capita_Waste_KG:Main_SourcesPackaging_Electronics:Coastal_Waste_RiskMedium                           NA         NA      NA       NA    
Per_Capita_Waste_KG:Main_SourcesPackaging_Industrial:Coastal_Waste_RiskMedium                            NA         NA      NA       NA    
Per_Capita_Waste_KG:Main_SourcesConsumer_Goods:Coastal_Waste_RiskVery_High                               NA         NA      NA       NA    
Per_Capita_Waste_KG:Main_SourcesConsumer_Packaging:Coastal_Waste_RiskVery_High                           NA         NA      NA       NA    
Per_Capita_Waste_KG:Main_SourcesElectronics_Packaging:Coastal_Waste_RiskVery_High                        NA         NA      NA       NA    
Per_Capita_Waste_KG:Main_SourcesFood_Packaging:Coastal_Waste_RiskVery_High                               NA         NA      NA       NA    
Per_Capita_Waste_KG:Main_SourcesIndustrial_Consumer:Coastal_Waste_RiskVery_High                          NA         NA      NA       NA    
Per_Capita_Waste_KG:Main_SourcesIndustrial_Packaging:Coastal_Waste_RiskVery_High                         NA         NA      NA       NA    
Per_Capita_Waste_KG:Main_SourcesPackaging_Consumer:Coastal_Waste_RiskVery_High                           NA         NA      NA       NA    
Per_Capita_Waste_KG:Main_SourcesPackaging_Electronics:Coastal_Waste_RiskVery_High                        NA         NA      NA       NA    
Per_Capita_Waste_KG:Main_SourcesPackaging_Industrial:Coastal_Waste_RiskVery_High                         NA         NA      NA       NA    
Recycling_Rate:Main_SourcesConsumer_Goods:Coastal_Waste_RiskLow                                          NA         NA      NA       NA    
Recycling_Rate:Main_SourcesConsumer_Packaging:Coastal_Waste_RiskLow                                      NA         NA      NA       NA    
Recycling_Rate:Main_SourcesElectronics_Packaging:Coastal_Waste_RiskLow                                   NA         NA      NA       NA    
Recycling_Rate:Main_SourcesFood_Packaging:Coastal_Waste_RiskLow                                          NA         NA      NA       NA    
Recycling_Rate:Main_SourcesIndustrial_Consumer:Coastal_Waste_RiskLow                                     NA         NA      NA       NA    
Recycling_Rate:Main_SourcesIndustrial_Packaging:Coastal_Waste_RiskLow                                    NA         NA      NA       NA    
Recycling_Rate:Main_SourcesPackaging_Consumer:Coastal_Waste_RiskLow                                      NA         NA      NA       NA    
Recycling_Rate:Main_SourcesPackaging_Electronics:Coastal_Waste_RiskLow                                   NA         NA      NA       NA    
Recycling_Rate:Main_SourcesPackaging_Industrial:Coastal_Waste_RiskLow                                    NA         NA      NA       NA    
Recycling_Rate:Main_SourcesConsumer_Goods:Coastal_Waste_RiskMedium                                       NA         NA      NA       NA    
Recycling_Rate:Main_SourcesConsumer_Packaging:Coastal_Waste_RiskMedium                                   NA         NA      NA       NA    
Recycling_Rate:Main_SourcesElectronics_Packaging:Coastal_Waste_RiskMedium                                NA         NA      NA       NA    
Recycling_Rate:Main_SourcesFood_Packaging:Coastal_Waste_RiskMedium                                       NA         NA      NA       NA    
Recycling_Rate:Main_SourcesIndustrial_Consumer:Coastal_Waste_RiskMedium                                  NA         NA      NA       NA    
Recycling_Rate:Main_SourcesIndustrial_Packaging:Coastal_Waste_RiskMedium                                 NA         NA      NA       NA    
Recycling_Rate:Main_SourcesPackaging_Consumer:Coastal_Waste_RiskMedium                                   NA         NA      NA       NA    
Recycling_Rate:Main_SourcesPackaging_Electronics:Coastal_Waste_RiskMedium                                NA         NA      NA       NA    
Recycling_Rate:Main_SourcesPackaging_Industrial:Coastal_Waste_RiskMedium                                 NA         NA      NA       NA    
Recycling_Rate:Main_SourcesConsumer_Goods:Coastal_Waste_RiskVery_High                                    NA         NA      NA       NA    
Recycling_Rate:Main_SourcesConsumer_Packaging:Coastal_Waste_RiskVery_High                                NA         NA      NA       NA    
Recycling_Rate:Main_SourcesElectronics_Packaging:Coastal_Waste_RiskVery_High                             NA         NA      NA       NA    
Recycling_Rate:Main_SourcesFood_Packaging:Coastal_Waste_RiskVery_High                                    NA         NA      NA       NA    
Recycling_Rate:Main_SourcesIndustrial_Consumer:Coastal_Waste_RiskVery_High                               NA         NA      NA       NA    
Recycling_Rate:Main_SourcesIndustrial_Packaging:Coastal_Waste_RiskVery_High                              NA         NA      NA       NA    
Recycling_Rate:Main_SourcesPackaging_Consumer:Coastal_Waste_RiskVery_High                                NA         NA      NA       NA    
Recycling_Rate:Main_SourcesPackaging_Electronics:Coastal_Waste_RiskVery_High                             NA         NA      NA       NA    
Recycling_Rate:Main_SourcesPackaging_Industrial:Coastal_Waste_RiskVery_High                              NA         NA      NA       NA    
Per_Capita_Waste_KG:Recycling_Rate:Main_SourcesConsumer_Goods:Coastal_Waste_RiskLow                      NA         NA      NA       NA    
Per_Capita_Waste_KG:Recycling_Rate:Main_SourcesConsumer_Packaging:Coastal_Waste_RiskLow                  NA         NA      NA       NA    
Per_Capita_Waste_KG:Recycling_Rate:Main_SourcesElectronics_Packaging:Coastal_Waste_RiskLow               NA         NA      NA       NA    
Per_Capita_Waste_KG:Recycling_Rate:Main_SourcesFood_Packaging:Coastal_Waste_RiskLow                      NA         NA      NA       NA    
Per_Capita_Waste_KG:Recycling_Rate:Main_SourcesIndustrial_Consumer:Coastal_Waste_RiskLow                 NA         NA      NA       NA    
Per_Capita_Waste_KG:Recycling_Rate:Main_SourcesIndustrial_Packaging:Coastal_Waste_RiskLow                NA         NA      NA       NA    
Per_Capita_Waste_KG:Recycling_Rate:Main_SourcesPackaging_Consumer:Coastal_Waste_RiskLow                  NA         NA      NA       NA    
Per_Capita_Waste_KG:Recycling_Rate:Main_SourcesPackaging_Electronics:Coastal_Waste_RiskLow               NA         NA      NA       NA    
Per_Capita_Waste_KG:Recycling_Rate:Main_SourcesPackaging_Industrial:Coastal_Waste_RiskLow                NA         NA      NA       NA    
Per_Capita_Waste_KG:Recycling_Rate:Main_SourcesConsumer_Goods:Coastal_Waste_RiskMedium                   NA         NA      NA       NA    
Per_Capita_Waste_KG:Recycling_Rate:Main_SourcesConsumer_Packaging:Coastal_Waste_RiskMedium               NA         NA      NA       NA    
Per_Capita_Waste_KG:Recycling_Rate:Main_SourcesElectronics_Packaging:Coastal_Waste_RiskMedium            NA         NA      NA       NA    
Per_Capita_Waste_KG:Recycling_Rate:Main_SourcesFood_Packaging:Coastal_Waste_RiskMedium                   NA         NA      NA       NA    
Per_Capita_Waste_KG:Recycling_Rate:Main_SourcesIndustrial_Consumer:Coastal_Waste_RiskMedium              NA         NA      NA       NA    
Per_Capita_Waste_KG:Recycling_Rate:Main_SourcesIndustrial_Packaging:Coastal_Waste_RiskMedium             NA         NA      NA       NA    
Per_Capita_Waste_KG:Recycling_Rate:Main_SourcesPackaging_Consumer:Coastal_Waste_RiskMedium               NA         NA      NA       NA    
Per_Capita_Waste_KG:Recycling_Rate:Main_SourcesPackaging_Electronics:Coastal_Waste_RiskMedium            NA         NA      NA       NA    
Per_Capita_Waste_KG:Recycling_Rate:Main_SourcesPackaging_Industrial:Coastal_Waste_RiskMedium             NA         NA      NA       NA    
Per_Capita_Waste_KG:Recycling_Rate:Main_SourcesConsumer_Goods:Coastal_Waste_RiskVery_High                NA         NA      NA       NA    
Per_Capita_Waste_KG:Recycling_Rate:Main_SourcesConsumer_Packaging:Coastal_Waste_RiskVery_High            NA         NA      NA       NA    
Per_Capita_Waste_KG:Recycling_Rate:Main_SourcesElectronics_Packaging:Coastal_Waste_RiskVery_High         NA         NA      NA       NA    
Per_Capita_Waste_KG:Recycling_Rate:Main_SourcesFood_Packaging:Coastal_Waste_RiskVery_High                NA         NA      NA       NA    
Per_Capita_Waste_KG:Recycling_Rate:Main_SourcesIndustrial_Consumer:Coastal_Waste_RiskVery_High           NA         NA      NA       NA    
Per_Capita_Waste_KG:Recycling_Rate:Main_SourcesIndustrial_Packaging:Coastal_Waste_RiskVery_High          NA         NA      NA       NA    
Per_Capita_Waste_KG:Recycling_Rate:Main_SourcesPackaging_Consumer:Coastal_Waste_RiskVery_High            NA         NA      NA       NA    
Per_Capita_Waste_KG:Recycling_Rate:Main_SourcesPackaging_Electronics:Coastal_Waste_RiskVery_High         NA         NA      NA       NA    
Per_Capita_Waste_KG:Recycling_Rate:Main_SourcesPackaging_Industrial:Coastal_Waste_RiskVery_High          NA         NA      NA       NA    
---
Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1

Residual standard error: 0.7377 on 127 degrees of freedom
Multiple R-squared:  0.9883,    Adjusted R-squared:  0.9849 
F-statistic:   290 on 37 and 127 DF,  p-value: < 2.2e-16
Anova(mod = interact, type = "II")
Note: model has aliased coefficients
      sums of squares computed by model comparison
Anova Table (Type II tests)

Response: Total_Plastic_Waste_MT
                                                                    Sum Sq  Df  F value    Pr(>F)    
Per_Capita_Waste_KG                                                   3.37   1   6.1868 0.0141670 *  
Recycling_Rate                                                        2.89   1   5.3154 0.0227592 *  
Main_Sources                                                       1922.81   8 441.7170 < 2.2e-16 ***
Coastal_Waste_Risk                                                   63.93   3  39.1646 < 2.2e-16 ***
Per_Capita_Waste_KG:Recycling_Rate                                    1.44   1   2.6538 0.1057780    
Per_Capita_Waste_KG:Main_Sources                                      8.33   2   7.6562 0.0007255 ***
Recycling_Rate:Main_Sources                                           0.04   2   0.0354 0.9652620    
Per_Capita_Waste_KG:Coastal_Waste_Risk                                1.78   2   1.6390 0.1982498    
Recycling_Rate:Coastal_Waste_Risk                                     1.83   2   1.6858 0.1894195    
Main_Sources:Coastal_Waste_Risk                                     624.20   2 573.5783 < 2.2e-16 ***
Per_Capita_Waste_KG:Recycling_Rate:Main_Sources                       0.17   2   0.1597 0.8525778    
Per_Capita_Waste_KG:Recycling_Rate:Coastal_Waste_Risk                 1.29   2   1.1825 0.3098768    
Per_Capita_Waste_KG:Main_Sources:Coastal_Waste_Risk                          0                       
Recycling_Rate:Main_Sources:Coastal_Waste_Risk                               0                       
Per_Capita_Waste_KG:Recycling_Rate:Main_Sources:Coastal_Waste_Risk           0                       
Residuals                                                            69.10 127                       
---
Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
par(mfrow = c(2,2))
plot(interact)
Aviso: not plotting observations with leverage one:
  1, 2, 3, 4, 5, 7, 8, 9, 10, 12, 13, 15, 17, 19, 20, 26, 33, 41, 45, 49, 54, 150

fig <- plot_ly(x = plastic$Recycling_Rate, 
               y = plastic$Per_Capita_Waste_KG, 
               z = plastic$Total_Plastic_Waste_MT, 
               color = plastic$Main_Sources, 
               type = "scatter3d", mode = "markers") 
fig
Aviso: n too large, allowed maximum for palette Set2 is 8
Returning the palette you asked for with that many colors
Aviso: n too large, allowed maximum for palette Set2 is 8
Returning the palette you asked for with that many colors
Aviso: n too large, allowed maximum for palette Set2 is 8
Returning the palette you asked for with that many colors
Aviso: n too large, allowed maximum for palette Set2 is 8
Returning the palette you asked for with that many colors
library(ggeffects)

# Obtener efectos marginales del modelo ajustado
efectos_marginales <- ggpredict(interact, terms = c("Main_Sources","Recycling_Rate"))
Aviso: prediction from rank-deficient fit; attr(*, "non-estim") has doubtful cases
# Graficar los efectos marginales
plot(efectos_marginales)

\[ \text{Rechazamos la hipotesis nula : } H_0 \\ \text{Al observar que existe una relacion significante entre las variables Recycling_Rate y Main_Sources} \]

library(ggcorrplot)
reduced_data <- subset(plastic, select = c(-Main_Sources, -Country, -Coastal_Waste_Risk))
corr_matrix = round(cor(reduced_data), 2)
ggcorrplot(corr_matrix, hc.order = TRUE, type = "lower",
          lab = TRUE)

library(ggeffects)
ggeffect(interact)
$Per_Capita_Waste_KG
# Predicted values of Total_Plastic_Waste_MT
Can't export table to 
  text
  , data frame is empty.

Not all rows are shown in the output. Use `print(..., n = Inf)` to show all rows.

$Recycling_Rate
# Predicted values of Total_Plastic_Waste_MT
Can't export table to 
  text
  , data frame is empty.

Not all rows are shown in the output. Use `print(..., n = Inf)` to show all rows.

$Main_Sources
# Predicted values of Total_Plastic_Waste_MT
Can't export table to 
  text
  , data frame is empty.

Not all rows are shown in the output. Use `print(..., n = Inf)` to show all rows.

$Coastal_Waste_Risk
# Predicted values of Total_Plastic_Waste_MT
Can't export table to 
  text
  , data frame is empty.

Not all rows are shown in the output. Use `print(..., n = Inf)` to show all rows.

attr(,"class")
[1] "ggalleffects" "list"        
attr(,"model.name")
[1] "interact"
plot(plastic, pch = 16)
abline(interact)
Aviso: only using the first two of 160 regression coefficients

library(agricolae)
tukey <- aov(Total_Plastic_Waste_MT ~ Per_Capita_Waste_KG *
                       Recycling_Rate *
                       Main_Sources * 
                       Coastal_Waste_Risk, 
                       data = plastic)
tukeysig <- TukeyHSD(tukey,"Coastal_Waste_Risk")
Aviso: non-factors ignored: Per_Capita_Waste_KGAviso: non-factors ignored: Recycling_RateAviso: non-factors ignored: Per_Capita_Waste_KG, Recycling_RateAviso: non-factors ignored: Per_Capita_Waste_KG, Main_SourcesAviso: non-factors ignored: Recycling_Rate, Main_SourcesAviso: non-factors ignored: Per_Capita_Waste_KG, Coastal_Waste_RiskAviso: non-factors ignored: Recycling_Rate, Coastal_Waste_RiskAviso: non-factors ignored: Per_Capita_Waste_KG, Recycling_Rate, Main_SourcesAviso: non-factors ignored: Per_Capita_Waste_KG, Recycling_Rate, Coastal_Waste_Risk
plot(tukeysig)

tukeysig <- TukeyHSD(tukey,"Main_Sources")
Aviso: non-factors ignored: Per_Capita_Waste_KGAviso: non-factors ignored: Recycling_RateAviso: non-factors ignored: Per_Capita_Waste_KG, Recycling_RateAviso: non-factors ignored: Per_Capita_Waste_KG, Main_SourcesAviso: non-factors ignored: Recycling_Rate, Main_SourcesAviso: non-factors ignored: Per_Capita_Waste_KG, Coastal_Waste_RiskAviso: non-factors ignored: Recycling_Rate, Coastal_Waste_RiskAviso: non-factors ignored: Per_Capita_Waste_KG, Recycling_Rate, Main_SourcesAviso: non-factors ignored: Per_Capita_Waste_KG, Recycling_Rate, Coastal_Waste_Risk
plot(tukeysig)

LS0tCnRpdGxlOiAiUGxhc3RpYyBXYXN0ZSAyMDIzIGFuYWxpc2lzIgpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sKLS0tCgpgYGB7cn0KcGxhc3RpYyA8LSByZWFkLmNzdigiUGxhc3RpYyBXYXN0ZSBBcm91bmQgdGhlIFdvcmxkLmNzdiIsIHN0cmluZ3NBc0ZhY3RvcnMgPSBUUlVFKQpgYGAKJCQKXHRleHR7TGEgaGlww7N0ZXNpcyBudWxhIGEgcHJvYmFyIGVzOn0gXFwKSF8wOiBcdGV4dHtObyBleGlzdGUgdW5hIHJlbGFjacOzbiBzaWduaWZpY2F0aXZhIGVudHJlIGxhIHByb2R1Y2Npw7NuIGRlIHJlc2lkdW9zIHBsw6FzdGljb3MgYSBuaXZlbCBuYWNpb25hbCwgbGEgdGFzYSBkZSByZWNpY2xhamUsfSBcXCAgClx0ZXh0e2xhIHByb2R1Y2Npb24gZGUgcmVzaWR1b3MgcGVyLWNhcGl0YSwgRWwgdGlwbyBwcmluY2lwYWwgZGUgcmVzdWRpbyBwb3IgcGFpcyB5IGVsIHJpZXNnbyBkZSByZXNpZHVvcyBjb3N0ZXJvcy59IFxcCgokJAoKYGBge3J9CmxpYnJhcnkoZ2dwbG90MikKbGlicmFyeShwbG90bHkpCmxpYnJhcnkoY2FyKQppbnRlcmFjdCA8LSBsbShUb3RhbF9QbGFzdGljX1dhc3RlX01UIH4gUGVyX0NhcGl0YV9XYXN0ZV9LRyAqCiAgICAgICAgICAgICAgICAgICAgICAgUmVjeWNsaW5nX1JhdGUgKgogICAgICAgICAgICAgICAgICAgICAgIE1haW5fU291cmNlcyAqIAogICAgICAgICAgICAgICAgICAgICAgIENvYXN0YWxfV2FzdGVfUmlzaywgCiAgICAgICAgICAgICAgICAgICAgICAgZGF0YSA9IHBsYXN0aWMpCnN1bW1hcnkoaW50ZXJhY3QpCmBgYAoKYGBge3IsIGZpZy53aWR0aD0xMCwgZmlnLmhlaWdodD02fQpwYXIobWZyb3cgPSBjKDIsMikpCnBsb3QoaW50ZXJhY3QpCmBgYAoKCmBgYHtyfQpmaWcgPC0gcGxvdF9seSh4ID0gcGxhc3RpYyRSZWN5Y2xpbmdfUmF0ZSwgCiAgICAgICAgICAgICAgIHkgPSBwbGFzdGljJFBlcl9DYXBpdGFfV2FzdGVfS0csIAogICAgICAgICAgICAgICB6ID0gcGxhc3RpYyRUb3RhbF9QbGFzdGljX1dhc3RlX01ULCAKICAgICAgICAgICAgICAgY29sb3IgPSBwbGFzdGljJE1haW5fU291cmNlcywgCiAgICAgICAgICAgICAgIHR5cGUgPSAic2NhdHRlcjNkIiwgbW9kZSA9ICJtYXJrZXJzIikgCmZpZwpgYGAKYGBge3IsIGZpZy53aWR0aD0xNCwgZmlnLmhlaWdodD00fQpsaWJyYXJ5KGdnZWZmZWN0cykKCiMgT2J0ZW5lciBlZmVjdG9zIG1hcmdpbmFsZXMgZGVsIG1vZGVsbyBhanVzdGFkbwplZmVjdG9zX21hcmdpbmFsZXMgPC0gZ2dwcmVkaWN0KGludGVyYWN0LCB0ZXJtcyA9IGMoIk1haW5fU291cmNlcyIsIlJlY3ljbGluZ19SYXRlIikpCgojIEdyYWZpY2FyIGxvcyBlZmVjdG9zIG1hcmdpbmFsZXMKcGxvdChlZmVjdG9zX21hcmdpbmFsZXMpCmBgYAokJApcdGV4dHtSZWNoYXphbW9zIGxhIGhpcG90ZXNpcyBudWxhIDogfSBIXzAgXFwKXHRleHR7QWwgb2JzZXJ2YXIgcXVlIGV4aXN0ZSB1bmEgcmVsYWNpb24gc2lnbmlmaWNhbnRlIGVudHJlIGxhcyB2YXJpYWJsZXMgUmVjeWNsaW5nX1JhdGUgeSBNYWluX1NvdXJjZXN9CiQkCmBgYHtyfQpsaWJyYXJ5KGdnY29ycnBsb3QpCnJlZHVjZWRfZGF0YSA8LSBzdWJzZXQocGxhc3RpYywgc2VsZWN0ID0gYygtTWFpbl9Tb3VyY2VzLCAtQ291bnRyeSwgLUNvYXN0YWxfV2FzdGVfUmlzaykpCmNvcnJfbWF0cml4ID0gcm91bmQoY29yKHJlZHVjZWRfZGF0YSksIDIpCmdnY29ycnBsb3QoY29ycl9tYXRyaXgsIGhjLm9yZGVyID0gVFJVRSwgdHlwZSA9ICJsb3dlciIsCiAgICAgICAgICBsYWIgPSBUUlVFKQpgYGAKYGBge3J9CmxpYnJhcnkoZ2dlZmZlY3RzKQpnZ2VmZmVjdChpbnRlcmFjdCkKYGBgCgoKYGBge3J9CnBsb3QocGxhc3RpYywgcGNoID0gMTYpCmFibGluZShpbnRlcmFjdCkKYGBgCgoKYGBge3J9CmxpYnJhcnkoYWdyaWNvbGFlKQp0dWtleSA8LSBhb3YoVG90YWxfUGxhc3RpY19XYXN0ZV9NVCB+IFBlcl9DYXBpdGFfV2FzdGVfS0cgKgogICAgICAgICAgICAgICAgICAgICAgIFJlY3ljbGluZ19SYXRlICoKICAgICAgICAgICAgICAgICAgICAgICBNYWluX1NvdXJjZXMgKiAKICAgICAgICAgICAgICAgICAgICAgICBDb2FzdGFsX1dhc3RlX1Jpc2ssIAogICAgICAgICAgICAgICAgICAgICAgIGRhdGEgPSBwbGFzdGljKQp0dWtleXNpZyA8LSBUdWtleUhTRCh0dWtleSwiQ29hc3RhbF9XYXN0ZV9SaXNrIikKcGxvdCh0dWtleXNpZykKYGBgCmBgYHtyLCBmaWcud2lkdGg9MTIsIGZpZy5oZWlnaHQ9OH0KdHVrZXlzaWcgPC0gVHVrZXlIU0QodHVrZXksIk1haW5fU291cmNlcyIpCnBsb3QodHVrZXlzaWcpCmBgYA==